﻿Public Class SpecialNeed
    Private m_sMessage As String
    Private m_lId As Long
    Sub New(ByVal sMessage As String, ByVal lId As Long)
        Me.m_sMessage = sMessage
        Me.m_lId = lId
    End Sub
    Public Overrides Function ToString() As String
        Return String.Format("{0} - {1}", Arguments(Me.m_lId, Me.m_sMessage))
    End Function
    Property Message()
        Get
            Return Me.m_sMessage
        End Get
        Set(ByVal value)
            Me.m_sMessage = CStr(value)
        End Set
    End Property
    Property ID()
        Get
            Return Me.m_lId
        End Get
        Set(ByVal value)
            Me.m_lId = CLng(value)
        End Set
    End Property
End Class
